//========================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - vܧ } -
//========================
//= G1.3tw
//========================

// 
alberta,25,238,6	script	::HairDresser	756,{
	cutin "son",2;
	mes "[]";
	mes "An~";
	mes "ڬOֺF ^3355FF^000000";
	mes "F^XjapRA";
	mes "ڤwgǷ|F";
	mes "U쥴Yv\ҤF";
	next;
	mes "[]";
	mes "ɭԤ]ݭn@߱ڡA";
	mes "ڸյഫ@UA߱A";
	mes "A@Uvn?";
	next;
	switch(select("ڭnݾv:ڷQܾv:")) {
	case 1:
		mes "[]";
		mes "vAq119A";
		mes "аݧAnݴX?";
		mes "Qݪ Aп0A";
		next;
		input .@style;
		mes "[]";
		switch(.@style) {
		case 0:
			mes "ˡAݰF?";
			mes "wvܡA";
			mes "HɥiHХsA";
			mes "ڷ|ɳ̤jAꪺ";
			close2;
			cutin "son",255;
			end;
		case 1:
			if(Sex) {
				mes "oO'˦' v!";
				mes "SíAOSIA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'v' v!";
				mes "֬ݤFQhNvA";
				mes "ˡAٺN?";
				break;
			}
		case 2:
			if(Sex) {
				mes "oO'Cϥμm' v!";
				mes "M@즳WChvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'g' v!";
				mes "iHPıA";
				mes "@õ۱jPOqvA";
				mes "ˡAٺN?";
				break;
			}
		case 3:
			if(Sex) {
				mes "oO'Fz}' v!";
				mes "iHPıAOqvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'BN' v!";
				mes "MIDAPıŷxvA";
				mes "ˡAٺN?";
				break;
			}
		case 4:
			if(Sex) {
				mes "oO'Gs' v!";
				mes "߸ܪܲMvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO' bB' v!";
				mes "QnMnPıAoOvA";
				mes "ˡAٺN?";
				break;
			}
		case 5:
			if(Sex) {
				mes "oO'ѨϤپ' v!";
				mes "oOܥíܰ@۪vA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'v¡N' v!";
				mes "oOiHv¡߸̷PıvA";
				mes "ˡAٺN?";
				break;
			}
		case 6:
			if(Sex) {
				mes "oO'ϥ' v!";
				mes "oOɥΤA";
				mes "¦yҰvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'SѰө' v!";
				mes "ݼˤliHȤjvA";
				mes "ˡAٺN?";
				break;
			}
		case 7:
			if(Sex) {
				mes "oO'Ir' v!";
				mes "PınrPıvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'GMs' v!";
				mes "ެO֡A|ĲI⦸vA";
				mes "ˡAٺN?";
				break;
			}
		case 8:
			if(Sex) {
				mes "oO'Ǫ' v!";
				mes "unݤ@ܡA";
				mes "|ܦhHgWv!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'B|q' v!";
				mes "ݰ_Ӱ|t^Aܺ}Ga";
				mes "ˡAٺN?";
				break;
			}
		case 9:
			if(Sex) {
				mes "oO'fr' v!";
				mes "PRlޤOvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'I' v!";
				mes "믫OR믫PıvA";
				mes "ˡAٺN?";
				break;
			}
		case 10:
			if(Sex) {
				mes "oO'ͳN' v!";
				mes "PıWiH]@Ūv!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO't' v!";
				mes "PıWkhˤfA|nv!";
				mes "ˡAٺN?";
				break;
			}
		case 11:
			if(Sex) {
				mes "oO's' v!";
				mes "⯫sڬ¦yAҰv";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'tQrfP' v!";
				mes "PıSܪHv..";
				mes "ˡAٺN?";
				break;
			}
		case 12:
			if(Sex) {
				mes "oO'vϥμm' v!";
				mes "ݰ_ӫܰTӬ[v!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'ŧ' v!";
				mes "nb̦ݹLv...?";
				mes "ˡAٺN?";
				break;
			}
		case 13:
			if(Sex) {
				mes "oO'pzN' v!";
				mes "PıWnb̡A";
				mes "QpLPı!!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'l' v!";
				mes "ݤ[FܡAӺ믫|QJPı";
				mes "ˡAٺN?";
				break;
			}
		case 14:
			if(Sex) {
				mes "oO'wi' v!";
				mes "oOHPıAQnhIqvA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'zA' v!";
				mes "nHAܵ}v...";
				mes "ˡAٺN?";
				break;
			}
		case 15:
			if(Sex) {
				mes "oO'Lv' v!";
				mes "몺PınQ쪺v!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'' v!";
				mes "p߱񪺸ܡA|Q쪺v!";
				mes "ˡAٺN?";
				break;
			}
		case 16:
			if(Sex) {
				mes "oO'{q' v!";
				mes "nPıQ줭ˮ`v...?";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'w쳴' v!";
				mes "QI쪺ܡAnPıʪv";
				mes "ˡAٺN?";
				break;
			}
		case 17:
			if(Sex) {
				mes "oO'Mq' v!";
				mes "bWHKߪFߦ誺vA";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'ja' v!";
				mes "oO믫鱫A}Gv!";
				mes "ˡAٺN?";
				break;
			}
		case 18:
			if(Sex) {
				mes "oO'W' v!";
				mes "@ӮɥN}Gv...!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'pN' v!";
				mes "iEPıAWsAvA";
				mes "ˡAٺN?";
				break;
			}
		case 19:
			if(Sex) {
				mes "oO'ùQĮ' v!";
				mes "@ҦƱ泣HUbWv!";
				mes "ˡAٺN?";
				break;
			}
			else {
				mes "oO'' v!";
				mes "jʪ@ˡAO@ӲD֪v";
				mes "ˡAٺN?";
				break;
			}
		default:
			mes "uASoؾvڡA";
			mes "Xuq1 19A";
			close2;
			cutin "son",255;
			end;
		}
		cutin "son",255;
		callsub L_cutin,.@style;
		close2;
		end;
	case 2:
		if(BaseLevel < 60) {
			mes "[]";
			mes "uAȤHAA{bvA";
			mes "̾AXALFA";
			mes "n令䥦_ǪvA";
			mes "յۥΨ䥦˹~A˹@Ua";
			close2;
			cutin "son",255;
			end;
		}
		else if((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) || (Zeny < 99800)) {
			mes "[]";
			mes "QnvܡA";
			mes "nǳƤ@ǪFA";
			mes "ݭnFhA";
			mes "ЧAnnOUӧa!";
			next;
			mes "[]";
			mes "M 3ӡA";
			mes "VX 3ӡA";
			mes "|l100ӡA";
			mes "u|l100ӡA";
			mes "v100ӡA";
			mes "Yv100ӡA";
			mes "AYv100";
			next;
			mes "[]";
			mes "t~ٻݭn 99,800 A";
			mes "ǳƦnAӪܡA";
			mes "ڷ|ڪƨqAݪA";
			close2;
			cutin "son",255;
			end;
		}
		mes "[]";
		mes "nAU... пܧAQva";
		mes "ڷ|ڪƨqAݪ";
		mes "vAq119A";
		mes "аݭnXO?";
		next;
		input .@style;
		if(.@style > 19) {
			mes "[]";
			mes "uASoؾvڡA";
			mes "Xuq1 19A";
			close2;
			cutin "",255;
			end;
		}
		else if(.@style == 0) {
			mes "[]";
			mes "wgF";
			close2;
			cutin "",255;
			end;
		}
		else if(getlook(1) == .@style) {
			mes "[]";
			mes "AwgFoӾvFA";
			mes "ڻ{AݭnAݬݨLv";
			close2;
			cutin "",255;
			end;
		}
		cutin "son",255;
		callsub L_cutin,.@style;
		mes "[]";
		mes "oO " + .@style + "v";
		mes "ڱN|AܦoӾv";
		mes "n}lܾvF??";
		next;
		if(select("OAڷQ{bNܾv:AڦAҼ{ݬ...")==2) {
			mes "[]";
			mes "naAnVܾvA";
			mes "ݭ@ؾvOAwA";
			mes "OovXAӧiDڧa!";
			close2;
			cutin "",255;
			end;
		}
		if(getlook(6) == 0) {
			mes "[]";
			mes "A٨SVLYvr?";
			mes "ıoVӷsv|nA";
			mes "bveAڥiHKOѧAoA";
			mes "QnVCO?";
			next;
			switch(select(":::::Ŧ:զ:¦:")) {
			case 1:
				set .@pallete,8;
				break;
			case 2:
				set .@pallete,1;
				break;
			case 3:
				set .@pallete,2;
				break;
			case 4:
				set .@pallete,3;
				break;
			case 5:
				set .@pallete,4;
				break;
			case 6:
				set .@pallete,5;
				break;
			case 7:
				set .@pallete,6;
				break;
			case 8:
				set .@pallete,7;
				break;
			case 9:
				mes "[]";
				mes "naA";
				mes "wAץ{A";
				mes "uOvnAYvC]Oܭn";
				close2;
				cutin "",255;
				end;
			}
		}
		mes "[]";
		mes "{bAn}lo~ Фn~";
		mes "pGʤFAAviN|ܪݤF";
		mes "un۫HڴNnAWAqX}Gv!";
		next;
		nude;
		mes "[]";
		mes "- d d d d -";
		mes "- d d d d -";
		mes "- A A A A -";
		next;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		setlook 1,.@style;
		setlook 6,.@pallete;
		mes "[]";
		mes "z~ ݰ_ӫD`O!";
		mes "ƱA|w " + .@style + "v";
		mes "pGAݤWF䥦wv";
		mes "wHɦ^ӧڭA";
		setlook 1,.@style;
		setlook 6,.@pallete;
		close2;
		cutin "",255;
		end;
	case 3:
		mes "[]";
		mes "C@ӤHRvQ...";
		mes "ƱAuA";
		mes "AXAv";
		close2;
		cutin "son",255;
		end;
	}
L_cutin:
	if(Sex) {
		if(getarg(0) < 10)
		cutin "hair_m_0"+getarg(0),4;
		else
		cutin "hair_m_"+getarg(0),4;
	}
	else {
		if(getarg(0) < 10)
		cutin "hair_f_0"+getarg(0),4;
		else
		cutin "hair_f_"+getarg(0),4;
	}
	return;
}

morocc,160,97,4	duplicate(HairDresser)	#moc	756
prontera,146,92,6	duplicate(HairDresser)	#prt	756
geffen,120,60,8	duplicate(HairDresser)	#gef	756
aldebaran,143,116,4	duplicate(HairDresser)	#alde	756
izlude,134,92,4	duplicate(HairDresser)	#izl	756


// y ev
alberta,33,141,1	script	y ev	87,{
	mes "[֩ ͩ|]";
	mes "! v]pvڡA֯ڡA";
	mes "ٻ@ɩʪA";
	mes "ڤ~O@uAePȪH!";
	mes "ڤ~ORгy̧r!";
	next;
	switch(select("аݧAO@檺?:]گ֦n!!:......")) {
	case 1:
		mes "[֩ ͩ|]";
		mes "!? ڬOevڡAyb@ɤWA";
		mes "H̬e֡A";
		mes "ֽӬHrA";
		mes "Lboӧ̳̪ťA";
		mes "@ۺ٬Ov]pvpoo...";
		next;
		mes "[֩ ͩ|]";
		mes "ҥHڤ~|SaӤ@몺A";
		mes "ڧڤ@[AjaQۤvQnvڡA";
		mes "oˤlO檺!! pA]pvG";
		mes "'ڳo˨˰ſSn?~'A";
		mes "o|AſSܩ_ǪAfժvA!";
		next;
		mes "[֩ ͩ|]";
		mes "åBožvMyA";
		mes "g糣... ؾvٱoWA";
		mes "eO! űYvA";
		mes "ɭԤ@ݴNDŤӦhF!";
		mes "`Ө@yܡANON!!";
		next;
		mes "[֩ ͩ|]";
		mes "pA]Qoڪe֪ܡA";
		mes "HɸڻaA";
		mes "ڷ|SO@I߫AAnyA";
		mes "DF? neUز³JevA";
		mes "AťڪNF";
		close;
	case 2:
		if(BaseLevel < 60) {
			mes "[֩ ͩ|]";
			mes "AHNӬݪܡA";
			mes "̾AXAvOA";
			mes "NOAثev̫ڡA";
			mes "]OAЧA۫Ha";
			close;
		}
		if(Zeny < 199800) {
			mes "[֩ ͩ|]";
			mes "r? 䥦F賣ݭnAڥuݭnr!";
			mes "ЧAǳƦn199,800 AӧڧaA";
			mes "Ho˪AiHoڪ}G֡A";
			mes "AnPa~檺..";
			close;
		}
		mes "[֩ ͩ|]";
		mes "naAڴNAO 199,800 aA";
		mes "n? ٬OA٭nA";
		mes "䨺³JevA";
		mes "hXܪv]iHr...";
		next;
		if(select("NUAF:٬OQ") ==1 ) {
			mes "[֩ ͩ|]";
			mes "----- }lF!!!";
			mes "}lnio!!";
			next;
			nude;
			mes "[֩ ͩ|]";
			mes "㾾!! S!!";
			next;
			mes "[֩ ͩ|]";
			mes "!! [o!! ڰڰڰ!!";
			next;
			mes "[֩ ͩ|]";
			mes "F!! F_AܤF_r!!";
			mes "ֳlHڪvr!";
			mes "z!!";
			setlook 1,rand(1,19);
			setlook 6,rand(1,6);
			set Zeny,Zeny-199800;
			close;
		}
		mes "[֩ ͩ|]";
		mes "! HAK!! A@w|ᮬ!!";
		mes "uROAbjKHA";
		mes "ҽϥͪơA";
		mes "A`@ѷ|⮩쪺...";
		close;
	case 3:
		mes "[֩ ͩ|]";
		mes "@serDpooA";
		mes "hvҶihH̡A";
		mes "L̹bOӥiF! ni!!";
		mes "Ǧ򹳧i!!";
		close;
	}
}

lhz_in02,100,143,2	script	v ]pv#li	122,{
	mes "[pl L]";
	mes "ڻ쯫֪Av ]pvɪQlApl L?";
	mes "A~H몺ZKvAJevANO~";
	next;
	mes "[pl L]";
	mes "аݧAOӰYv? ФnSݡAiDڧAQn˪v";
	next;
	switch(select("Qݤ@U䥦v:Qܤ@Uv:.")) {
	case 1:
		mes "[pl L]";
		mes "AQݧڳ̷s]pv?";
		mes "vq2023A";
		mes "Qݪܽп0";
		next;
		input .@hair;
		if(.@hair==0) {
			mes "[pl L]";
			mes "? XOq2023";
			close;
		}
		if(.@hair<20 || .@hair>23) {
			mes "[pl L]";
			mes "? XOq2023";
			close;
		}
		if(Sex) {
			switch(.@hair) {
			case 20:
				cutin "hair_m_20",4;
				mes "[pl L]";
				mes "AoO ^3131FFүSas v^000000";
				mes "IvvAkʭ̬ݰ_ӧӿI~XMPıAoOڪߧ@-.";
				close;
			case 21:
				cutin "hair_m_21",4;
				mes "[pl L]";
				mes "^3131FFD v^000000";
				mes "vݤjOW¼vAkʳ~AMxʮ{Xӧa-.";
				close;
			case 22:
				cutin "hair_m_22",4;
				mes "[pl L]";
				mes "AȤH! ̦n!";
				mes "٬OA";
				mes "oӦWrs^3131FFpl v-^000000!!";
				next;
				mes "[pl L]";
				mes "yUӦevMvA᭱v÷lΪjnvAD`bPı";
				mes "ȤHܦApl L̶Ql몺Pı";
				close;
			case 23:
				cutin "hair_m_23",4;
				mes "[pl L]";
				mes "ȤHAܤF^3131FFf v^000000!";
				mes "plvzF@IA᭱vŪu@IFAnͤUӪD";
				next;
				mes "[pl L]";
				mes "аݧAw?";
				close;
			}
		}
		else {
			switch(.@hair) {
			case 20:
				cutin "hair_f_20",4;
				mes "[pl L]";
				mes "^3131FFu® v^000000";
				mes "۵MUvMiR@revAHݰ_ӧԪv";
				mes "аݧAw?";
				close;
			case 21:
				cutin "hair_f_21",4;
				mes "[pl L]";
				mes "ڡAos^3131FFH v^000000";
				mes "eBܦ۵MaihvAܦ۵Mj_ӪvAiHȤH@Qkݰ_ӧ}G?";
				close;
			case 22:
				cutin "hair_f_22",4;
				mes "[pl L]";
				mes "22 ^3131FF̧F v^000000";
				mes "jx~ivAܥXܿnAסA̧F@Aܦ۴bΩʷP !!";
				close;
			case 23:
				cutin "hair_f_23",4;
				mes "[pl L]";
				mes "ڡAosO ^3131FFDk쵷 v^000000";
				mes "ODk쵷_}ҼˡA䱲_ӪvjեiRʡA䥦۵MۡA|Aݰ_Ӥڦ~֧֤@I";
				close;
			}
		}
	case 2:
		if(baselevel < 60) {
			mes "[pl L]";
			mes "ڤpl L̡AUȴѧv";
			next;
			mes "[pl L]";
			mes "OܥiAUȧA褣";
			mes "ЦnnimAӧڧa";
			close;
		}
		if(countitem(973) < 3 || countitem(974) < 3 || countitem(901) < 100 || countitem(1094) < 100 ||
							countitem(1020) < 100 || countitem(1060) < 100 || countitem(7152) < 100 || Zeny < 99800) {
			mes "[pl L]";
			mes "AAשUwMߤF?";
			mes "AQnAQnvܡAЧAǳƴX˧Ʀn?";
			next;
			mes "[pl L]";
			mes "M 3ӡA";
			mes "VX 3ӡA";
			mes "|l 100ӡA";
			mes "u|l 100ӡA";
			mes "v 100ӡA";
			mes "Yv 100ӡA";
			mes "AYv 100ӡA";
			next;
			mes "[pl L]";
			mes "٦99,800 ";
			mes "ǳƦnܡAڷ|Aݨ^3131FFL̪_^000000";
			close;
		}
		mes "[pl L]";
		mes "bܾvɭԡA";
		mes "@Uݭn~";
		next;
		mes "[pl L]";
		mes "M 3ӡA";
		mes "VX 3ӡA";
		mes "|l 100ӡA";
		mes "u|l 100ӡA";
		mes "v 100ӡA";
		mes "Yv 100ӡA";
		mes "AYv 100ӡA";
		mes "٦99,800 ";
		next;
		mes "[pl L]";
		mes "ƳaFA";
		mes "n}lF?";
		next;
		if(select("}l:n....")==2) {
			mes "[pl L]";
			mes "DAwڳ]pv....?";
			mes "ڰ....AoڪN....";
			mes "uOH";
			close;
		}
		mes "[pl L]";
		mes "AлXƱܪvX";
		mes "pl L̤@w|A檺";
		next;
		mes "[pl L]";
		if(Sex) {
			mes "20BүSas v";
			mes "21BD v";
			mes "22Bpl v-";
			mes "23Bf v";
		}
		else {
			mes "20Bu® v";
			mes "21BH v";
			mes "22B v";
			mes "23BDk쵷 v";
		}
		next;
		input .@hair;
		if(.@hair == 0) {
			mes "[pl L]";
			mes "? XOq2023";
			close;
		}
		if(.@hair < 20 || .@hair > 23) {
			mes "[pl L]";
			mes "? XOq2023";
			close;
		}
		cutin "hair_" +((Sex)? "m": "f")+ "_" +((.@hair < 10)? "0": "")+.@hair+ "",4;
		mes "[pl L]";
		mes "ȤHAܤF" +.@hair+ "v";
		mes "A{bnܾv?";
		next;
		if(select("O:O....")==2) {
			mes "[pl L]";
			mes "˿XF?";
			mes "ЦAT{@U";
			close;
		}
		mes "[pl L]";
		mes "An}lF";
		mes "ک_񪺤Oq....!!";
		nude;
		next;
		mes "-   -";
		mes "-   -";
		mes "-_ _ _-";
		next;
		mes "-   -";
		mes "-   -";
		mes "-_ _ _-";
		next;
		delitem 973,3;
		delitem 974,3;
		delitem 901,100;
		delitem 1094,100;
		delitem 1020,100;
		delitem 1060,100;
		delitem 7152,100;
		set Zeny,Zeny-99800;
		setlook 1,.@hair;
		setlook 6,rand(9);
		mes "[pl L]";
		mes "nF";
		mes "ˡAڳ]psv٤ݧa?";
		mes "....plL̪\QGM@y";
		mes (Sex)? "uOӮ𪺾v!": "uO}Gv!"; //kʥլd
		close;
	case 3:
		mes "[pl L]";
		mes "AӤOnAA]pvAAıoNNF?";
		mes "~AO- !";
		mes "v]p]O@Nήɩ|";
		next;
		mes "[pl L]";
		mes "ڪNAѪAAڷQAˤ@";
		mes "b c--̼w[LO F";
		mes "֥d!";
		mes "!!";
		close;
	}
}

lhz_in02,91,155,4	script	 ev#lich	862,{
	emotion 23;
	mes "[ ev]";
	mes "-!!@~@!";
	next;
	mes "[ ev]";
	mes "? ڡAo.. zn?";
	mes "аݧڦƶ? C? Y?";
	mes "p.. Yh?";
	next;
	mes "[ ev]";
	mes "! rAuOAo̬Oeǰ..";
	mes "KKAܩp";
	next;
	switch(select("аݩpO򪺰?:ڴvn:Mݦ pl L̪Ʊ")) {
	case 1:
		mes "[ ev]";
		mes "C? p֬O? Ѯv?";
		mes "Ѯv~֬O.. Kr";
		next;
		mes "[ ev]";
		mes "ڤOnݦѮv~?";
		mes "uO~ p쩳n˰!!";
		mes "p˲Qkܷ|g@";
		next;
		mes "[ ev]";
		mes "-!";
		mes "ڲ{bOߥͰڡAoˤlQѮvݨSn|ڰi!";
		mes "u@aAu@!";
		close;
	case 2:
		if(BaseLevel < 60) {
			mes "[ ev]";
			mes "?";
			mes "ڡAiH..";
			next;
			mes "[ ev]";
			mes "ڪNOAMګܷQAOڥuOӨ߬evAVp";
			mes "դF?";
			close;
		}
		if(Zeny < 250000) {
			mes "[ ev]";
			mes "а.. ȤH.";
			mes "٬O@쨣߬evڡA";
			mes "oڦbѮvDΤUAǤFe޳N!";
			next;
			mes "[ ev]";
			mes "ڤƶOuA";
			mes "nnpYڸոլݩO?";
			mes "Lڳoˤl]Υ\";
			next;
			mes "[ ev]";
			mes "MwnFܡA";
			mes "зǳƦn250,000aA";
			mes "VOpKOAȪ";
			next;
			mes "[ ev]";
			mes "]ڦѮvO@짹Dq̡A";
			mes "ڦ٤A@ڰmߪ";
			next;
			mes "[ ev]";
			mes "ȤHAiHЩpڶ!!";
			mes "ڭnVOGi{pݪ!";
			close;
		}
		mes "[ ev]";
		mes "pnpYڸոլݶ?";
		mes "z- ±z!";
		mes "שԽm߰! rI-!";
		next;
		mes "[ ev]";
		mes "ȤHpڪ250,000AڴNeǸ̰ϥΪƶOӦUFASYa?";
		mes "аݩpn@ؾvO?";
		next;
		if(select("ܾv:٬OFa")==2) {
			mes "[ ev]";
			mes "C? Noˤ?";
			mes "p٬O﨣ߥͨSⴤ?";
			mes "]ȤHYvOܭn.. ..";
			close;
		}
		mes "[ ev]";
		mes "Oq123Aܤ@UpQnva";
		next;
		input .@hair;
		if(.@hair == 0) {
			mes "[ ev]";
			mes "C?? q 1 23AȤH";
			close;
		}
		if(.@hair < 0 || .@hair > 23) {
			mes "[ ev]";
			mes "C?? q 1 23AȤH";
			close;
		}
		cutin "hair_" +((Sex)? "m": "f")+ "_" +((.@hair < 10)? "0": "")+.@hair+ "",4;
		mes "[ ev]";
		mes "pܳoӤF?";
		next;
		if(select("ڭn:ڤn")==2) {
			mes "[ ev]";
			mes "аݩpSNv?";
			close;
		}
		mes "[ ev]";
		mes "n-! שܤF!";
		mes ".. аݩp~墨@ӤFO..?";
		next;
		mes "[ ev]";
		mes "ڰ~! DFADFA";
		mes "аݩp۫Hڶ! n}lF!";
		next;
		nude;
		mes "[ ev]";
		mes "ްڰڰڰڰڰ- !!!";
		next;
		mes "[ ev]";
		mes "! !";
		next;
		mes "[ ev]";
		mes "!! !!!! V|F!";
		mes "!!";
		next;
		mes "[ ev]";
		mes "ްڰڰڰڰڰ- !!!";
		next;
		mes "[ ev]";
		mes "......................";
		next;
		mes "[ ev]";
		mes "   ";
		next;
		setlook 1,rand(1,23);
		setlook 6,rand(9);
		set Zeny,Zeny-250000;
		mes "[ ev]";
		mes "rI! \F!";
		mes "C? MګwvO@˪?";
		mes "ڡAiڡAȤHAiO^WPıa";
		next;
		emotion 30;
		mes "[ ev]";
		mes "ȤHApuOFڤ@ӫܤj!";
		mes "ЩphhUڰ!";
		mes "Ao !";
		close;
	case 3:
		mes "[ ev]";
		mes ".. SRHr..";
		mes "ǳAȤHp]uO~";
		mes "ٰݳoǪFӤrAuH`?";
		close;
	}
}

lhz_in02,100,134,2	script	Vv#lich	850,{
	mes "[Vv ù]";
	if(Sex) {
		mes "w{A! ! Avunΰ~";
		mes "Y}GV⪺ܷ|nݪAаݧAnnV?";
	}
	else {
		mes "! jjpvun}G~ Yvb̰?";
		mes "yLV⪺ܴNOAWKڡAаݩpnnV?";
	}
	while(1) {
		next;
		switch(select("ڭnVYv:ťV⪺:")) {
		case 1:
			mes "[Vv ù]";
			mes "~";
			mes "аݩpwCO? RC? ·tC? ʷPC? ŬXC?";
			setarray .@color,8,1,2,3,4,5,6,7;
			setarray .@item,975,976,981,980,979,978,982,983;
			while(1) {
				next;
				set .@num,select("Хάn:Хζn:Хεn:ХΨn:Хκn:ХŦn:ХΥզn:Хζ¦n:No˴NnF")-1;
				if(.@num==8) {
					mes "[Vv ù]";
					mes "Ap?";
					mes "䥦C]Ӥr..";
					close;
				}
				if(getlook(6) == .@color[.@num]) {
					mes "[Vv ù]";
					mes "mٮAAAp٬OnΦP˪CAV?";
					mes "u~";
					continue;
				}
				if(countitem(.@item[.@num]) < 1) {
					mes "[Vv ù]";
					mes "o.. ȤHApnS";
					mes "'" +getitemname(.@item[.@num])+ "'~?";
					close;
				}
				if(Zeny < 1000) {
					mes "[Vv ù]";
					mes "VݭnOΡAO1000";
					close;
				}
				set Zeny,Zeny-1000;
				delitem .@item[.@num],1;
				setlook 6,.@color[.@num];
				mes "[Vv ù]";
				mes "ACٺ}Ga?";
				mes "pGQܤ߱ɭԡAHwA{!";
				close;
			}
		case 2:
			mes "[Vv ù]";
			mes "]UB߱nɭԡA";
			mes "b~Wu@ѤeAQ{}GɭԡA";
			mes "SzѥuQܨɭ!";
			next;
			mes "[Vv ù]";
			mes "ݭnVO1000MA";
			mes "aӷQnV⪺V1ӪܡA";
			mes "ڷ|pV̺}GC";
			continue;
		case 3:
			mes "[Vv ù]";
			mes "HP鶴骺LtA]߱Wഫ@ΡA";
			mes "񥭮ɰ@Ǥ@˪ܨA]|WS";
			close;
		}
	}
}